home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00602_go transition scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  2.0 KB  |  78 lines
  1. on goChangeMeta str
  2.   setMouseTrap()
  3.   resetPuppets()
  4.   go(str)
  5. end
  6.  
  7. on goMenu
  8.   global gFlowType, gInPlay, gBlindfold, gOldDelay, gMenu, gStuInfo, gTimer, gOldTimer, gTest, gOldTest
  9.   set gInPlay to 0
  10.   if gMenu then
  11.     set the enabled of menuItem 2 of menu "Special" to 0
  12.   end if
  13.   if gFlowType = #SCRAMBLE then
  14.     set gBlindfold to gOldDelay
  15.     set gTimer to gOldTimer
  16.     set gTest to gOldTest
  17.   end if
  18.   if getaProp(gStuInfo, #name) <> "GUEST" then
  19.     saveStudent()
  20.     goChangeMeta("login")
  21.   else
  22.     goChangeMeta("initMenu")
  23.     cursor(-1)
  24.   end if
  25. end
  26.  
  27. on goControls
  28.   global gTest, gTimer, gBlindfold, gOldDelay, gInPlay, gFlowType, gInSetup, gMenu, gTimerTicks, gMode, gPlace, gStuMethod, gOldTimer, gOldTest, gDictNum
  29.   set gDictNum to 0
  30.   set gInSetup to 1
  31.   if gFlowType = #SCRAMBLE then
  32.     set tmp to gBlindfold
  33.     set gBlindfold to gOldDelay
  34.     set gOldDelay to tmp
  35.     set tmp to gOldTimer
  36.     set gOldTimer to gTimer
  37.     set gTimer to tmp
  38.     set tmp to gOldTest
  39.     set gOldTest to gTest
  40.     set gTest to tmp
  41.   end if
  42.   set gInPlay to 0
  43.   if gMenu then
  44.     set the enabled of menuItem 2 of menu "Special" to 0
  45.   end if
  46.   if (gPlace = #play) and (isBrowse() or (gFlowType = #sms) or (gFlowType = #SCRAMBLE) or ((gFlowType = #REGULAR) and gTest)) then
  47.     goChangeMeta("controls2")
  48.   else
  49.     goChangeMeta("controls1")
  50.   end if
  51.   set the text of cast "TimerSecs" to string(gTimerTicks / 60)
  52.   set the text of cast "ModeType" to " "
  53.   set the text of cast "BrowseType" to " "
  54.   if getaProp(gStuMethod, #icons) = #smiley then
  55.     set the castNum of sprite 21 to 390
  56.   else
  57.     set the castNum of sprite 21 to 391
  58.   end if
  59.   if gTest then
  60.     set the castNum of sprite 11 to 238
  61.   end if
  62.   if gTimer then
  63.     set the castNum of sprite 12 to 236
  64.   end if
  65.   if gBlindfold then
  66.     set the castNum of sprite 13 to 234
  67.   end if
  68.   updateStage()
  69. end
  70.  
  71. on fromTitle
  72.   global gMenuLast, gFlowType
  73.   set gFlowType to #REGULAR
  74.   set gMenuLast to "menuNONE"
  75.   puppetTransition(23, 0)
  76.   goMenu()
  77. end
  78.